using System;
using System.IO;
using System.Text;
using System.Text.RegularExpressions;

namespace INNOVACALL.Framework.Common.CodeFormatting
{
	/// <summary>
	/// Generates color-coded HTML 4.01 from Visual Basic source code.
	/// </summary>
	public class VisualBasicFormat : CodeFormat
	{
		/// <summary>
		/// Determines if the language is case sensitive.
		/// </summary>
		/// <value>Always <b>true</b>, since VB is not case sensitive.</value>
		public override bool CaseSensitive
		{
			get { return false; }
		}

		/// <summary>
		/// Regular expression string to match comments (' and REM). 
		/// </summary>
		protected override string CommentRegEx
		{
			get { return @"(?:'|REM\s).*?(?=\r|\n)"; }
		}

		/// <summary>
		/// Regular expression string to match string and character literals. 
		/// </summary>
		protected override string StringRegEx
		{
			get { return @"""""|"".*?"""; }
		}

		/// <summary>
		/// The list of VB keywords.
		/// </summary>
		protected override string Keywords 
		{
			get 
			{ 
				return "AddHandler AddressOf AndAlso Alias And Ansi As Assembly "
					+ "Auto Boolean ByRef Byte ByVal Call Case Catch "
					+ "CBool CByte CChar CDate CDec CDbl Char CInt "
					+ "Class CLng CObj Const CShort CSng CStr CType "
					+ "Date Decimal Declare Default Delegate Dim DirectCast Do "
					+ "Double Each Else ElseIf End EndIf Enum Erase Error "
					+ "Event Exit False Finally For Friend Function Get "
					+ "GetType Global GoSub GoTo Handles If Implements Imports In Inherits "
					+ "Integer Interface Is Let Lib Like Long Loop "
					+ "Me Mod Module MustInherit MustOverride MyBase MyClass Namespace "
					+ "Narrowing New Next Not Nothing NotInheritable NotOverridable Object On "
					+ "Operator Option Optional Or OrElse Overloads Overridable Overrides ParamArray "
					+ "Preserve Private Property Protected Public RaiseEvent ReadOnly ReDim "
					+ "REM RemoveHandler Resume Return Select Set Shadows Shared "
					+ "Short Single Static Step Stop String Structure Sub "
					+ "SyncLock Then Throw To True Try TryCast TypeOf Unicode "
					+ "Until Variant Wend When While With Widening WithEvents WriteOnly Xor";
			}
		}

		/// <summary>
		/// The list of VB preprocessors.
		/// </summary>
		protected override string Preprocessors
		{
			get 
			{ 
				return @"#\s*Const #\s*If #\s*Else #\s*ElseIf #\s*End\s+If "
					+ @"#\s*ExternalSource #\s*End\s+ExternalSource "
					+ @"#\s*Region #\s*End\s+Region";
			}
		}
	}
}

